home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / params / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-16  |  7.0 KB  |  228 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Parameter Passing Demo Program"
  5.    ClientHeight    =   3060
  6.    ClientLeft      =   1395
  7.    ClientTop       =   2835
  8.    ClientWidth     =   7815
  9.    Height          =   3465
  10.    Icon            =   FRMMAIN.FRX:0000
  11.    Left            =   1335
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3060
  14.    ScaleWidth      =   7815
  15.    Top             =   2490
  16.    Width           =   7935
  17.    Begin CommandButton cmdClear 
  18.       BackColor       =   &H00C0C0C0&
  19.       Caption         =   "&Clear Fields"
  20.       Height          =   375
  21.       Left            =   5730
  22.       TabIndex        =   6
  23.       Top             =   1530
  24.       Width           =   1785
  25.    End
  26.    Begin CommandButton cmdExit 
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "E&xit Demo"
  29.       Height          =   375
  30.       Left            =   5730
  31.       TabIndex        =   7
  32.       Top             =   2430
  33.       Width           =   1785
  34.    End
  35.    Begin CommandButton cmdSearch 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "Search..."
  38.       Height          =   300
  39.       Index           =   2
  40.       Left            =   6480
  41.       TabIndex        =   5
  42.       Top             =   1020
  43.       Width           =   1005
  44.    End
  45.    Begin TextBox txtCriteria 
  46.       DataSource      =   "dtaItems"
  47.       Height          =   300
  48.       Index           =   2
  49.       Left            =   1500
  50.       TabIndex        =   4
  51.       Top             =   1020
  52.       Width           =   4815
  53.    End
  54.    Begin CommandButton cmdSearch 
  55.       BackColor       =   &H00C0C0C0&
  56.       Caption         =   "Search..."
  57.       Height          =   300
  58.       Index           =   1
  59.       Left            =   6480
  60.       TabIndex        =   3
  61.       Top             =   600
  62.       Width           =   1005
  63.    End
  64.    Begin TextBox txtCriteria 
  65.       DataSource      =   "dtaItems"
  66.       Height          =   300
  67.       Index           =   1
  68.       Left            =   1500
  69.       TabIndex        =   2
  70.       Top             =   600
  71.       Width           =   4815
  72.    End
  73.    Begin CommandButton cmdSearch 
  74.       BackColor       =   &H00C0C0C0&
  75.       Caption         =   "Search..."
  76.       Height          =   300
  77.       Index           =   0
  78.       Left            =   6480
  79.       TabIndex        =   1
  80.       Top             =   180
  81.       Width           =   1005
  82.    End
  83.    Begin TextBox txtCriteria 
  84.       DataSource      =   "dtaItems"
  85.       Height          =   300
  86.       Index           =   0
  87.       Left            =   1500
  88.       TabIndex        =   0
  89.       Top             =   180
  90.       Width           =   4815
  91.    End
  92.    Begin Shape shpOutline 
  93.       Height          =   1305
  94.       Left            =   300
  95.       Top             =   1530
  96.       Width           =   5145
  97.    End
  98.    Begin Shape shpShadow 
  99.       BackColor       =   &H00808080&
  100.       BackStyle       =   1  'Opaque
  101.       BorderColor     =   &H00808080&
  102.       Height          =   300
  103.       Index           =   2
  104.       Left            =   1560
  105.       Top             =   645
  106.       Width           =   4815
  107.    End
  108.    Begin Shape shpShadow 
  109.       BackColor       =   &H00808080&
  110.       BackStyle       =   1  'Opaque
  111.       BorderColor     =   &H00808080&
  112.       Height          =   300
  113.       Index           =   1
  114.       Left            =   1560
  115.       Top             =   230
  116.       Width           =   4815
  117.    End
  118.    Begin Shape shpShadow 
  119.       BackColor       =   &H00808080&
  120.       BackStyle       =   1  'Opaque
  121.       BorderColor     =   &H00808080&
  122.       Height          =   300
  123.       Index           =   0
  124.       Left            =   1560
  125.       Top             =   1060
  126.       Width           =   4815
  127.    End
  128.    Begin Label lblInfo 
  129.       BackColor       =   &H00C0C0C0&
  130.       FontBold        =   0   'False
  131.       FontItalic      =   0   'False
  132.       FontName        =   "Arial"
  133.       FontSize        =   8.25
  134.       FontStrikethru  =   0   'False
  135.       FontUnderline   =   0   'False
  136.       ForeColor       =   &H00000080&
  137.       Height          =   1185
  138.       Left            =   420
  139.       TabIndex        =   11
  140.       Top             =   1620
  141.       Width           =   5025
  142.    End
  143.    Begin Label lblTags 
  144.       Alignment       =   1  'Right Justify
  145.       AutoSize        =   -1  'True
  146.       BackColor       =   &H00C0C0C0&
  147.       Caption         =   "Title:"
  148.       Height          =   195
  149.       Index           =   2
  150.       Left            =   930
  151.       TabIndex        =   10
  152.       Top             =   1080
  153.       Width           =   450
  154.    End
  155.    Begin Label lblTags 
  156.       Alignment       =   1  'Right Justify
  157.       AutoSize        =   -1  'True
  158.       BackColor       =   &H00C0C0C0&
  159.       Caption         =   "Author:"
  160.       Height          =   195
  161.       Index           =   1
  162.       Left            =   750
  163.       TabIndex        =   9
  164.       Top             =   660
  165.       Width           =   630
  166.    End
  167.    Begin Label lblTags 
  168.       Alignment       =   1  'Right Justify
  169.       AutoSize        =   -1  'True
  170.       BackColor       =   &H00C0C0C0&
  171.       Caption         =   "Publisher:"
  172.       Height          =   195
  173.       Index           =   0
  174.       Left            =   540
  175.       TabIndex        =   8
  176.       Top             =   240
  177.       Width           =   855
  178.    End
  179.    Begin Shape shpShadow 
  180.       BackColor       =   &H00808080&
  181.       BackStyle       =   1  'Opaque
  182.       BorderColor     =   &H00808080&
  183.       Height          =   1200
  184.       Index           =   3
  185.       Left            =   450
  186.       Top             =   1680
  187.       Width           =   5055
  188.    End
  189. Option Explicit
  190. Sub cmdClear_Click ()
  191.   Dim iLoop As Integer
  192.   For iLoop = 0 To 2
  193.     txtCriteria(iLoop).Text = ""
  194.   Next
  195.   txtCriteria(0).SetFocus
  196. End Sub
  197. Sub cmdExit_Click ()
  198.   Unload Me
  199. End Sub
  200. Sub cmdSearch_Click (Index As Integer)
  201.   ' Setup Form Parameters
  202.   SetFormParam Mid$(lblTags(Index).Caption, 1, Len(lblTags(Index).Caption) - 1) & "s", PRF_TABLE
  203.   SetFormParam CStr(txtCriteria(Index).Text), PRF_CRITERIA
  204.   SetFormParam Format$(Index + 1), PRF_INDEX
  205.   ' Pre-set Result as current value for a default
  206.   SetFormParam CStr(txtCriteria(Index).Text), PRF_RESULT
  207.   frmSearch.Show 1
  208.   txtCriteria(Index).Text = GetFormParam(PRF_RESULT)
  209.   ClearFormParam
  210.   txtCriteria(Index).SetFocus
  211. End Sub
  212. Sub Form_Load ()
  213.   CenterForm Me
  214.   SetupInfoMessage
  215. End Sub
  216. Sub Form_Unload (Cancel As Integer)
  217.   End
  218. End Sub
  219. Sub SetupInfoMessage ()
  220.   Dim sCaption As String
  221.   sCaption = "This demo program shows a method for sending parameters from one Visual Basic"
  222.   sCaption = sCaption & " Form to another.  Click on one of the 'Search...' buttons to look"
  223.   sCaption = sCaption & " for records in the corresponding BIBLIO.MDB database table."
  224.   sCaption = sCaption & " Optionally, you may enter valid search criteria in the"
  225.   sCaption = sCaption & " corresponding text box."
  226.   lblInfo.Caption = sCaption
  227. End Sub
  228.